home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinXP Start Menu 4.xpl < prev    next >
Text File  |  2003-06-10  |  4KB  |  111 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH 1"="Appearance\Start menu\Windows XP\Classic Start Menu"
  5. "NAME"="Cascaded Special Folders"
  6. "VERSION"="2.10"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="0000011"
  9. "DESCRIPTION 1"="Use this plug-in to show some of the "special" folder of Window in cascading menu so you can easily access them. These items will appear on top of your Start Menu or inside the menu "All Programs" if you use the new (two columns) Start Menu in Windows XP."
  10. "DESCRIPTION 2"="NOTE: Do not activate ANY of these options if you are using an HP OfficeJet and want to use the scanner software that comes with it. It seems the software of this HP Combo does not like the directories X-Setup creates."
  11. "AUTHOR"="Xteq Systems"
  12. "CONTACTURL"="http://www.xteq.com"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="IE6+ fix found by Neil T."
  15. "COMMENT 2"="History not working in XP bug found by C.W. Billow [cwbillow@componentics.com]"
  16.  
  17.  
  18.  
  19. 'Declaration of some constants
  20. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Start Menu"
  21. sPath=""
  22.  
  23.   sV1="Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
  24.        sV2="Printers.{2227A280-3AEA-1069-A2DE-08002B30309D}"
  25.     sV3="Recycle Bin.{645FF040-5081-101B-9F08-00AA002F954E}"
  26. sV4="Scheduled Tasks.{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"
  27. '        sV5="History.{FF393560-C2A7-11CF-BFF4-444553540000}"
  28. '       sV5file="History.{FF393560-C2A7-11CF-BFF4-444553540000}\desktop.ini"
  29.   sV6="Subscriptions.{F5175861-2688-11D0-9C5E-00AA00A45957}"
  30.  
  31. 'Called when the Plugin is started
  32. SUB Plugin_Initialize 
  33.  sPath=RegReadValue(sP)
  34.  if FolderExists(sPath) then
  35.     if right(sPath,1)<>"\" then sPath=sPath & "\"
  36.  
  37.     Call SetUIElement(1,"Show cascading 'Control Panel' in Start menu")
  38.     Call ReadIt(1,sPath & sV1)
  39.  
  40.     Call SetUIElement(2,"Show cascading 'Printers' in Start menu")
  41.     Call ReadIt(2,sPath & sV2)
  42.  
  43.     Call SetUIElement(3,"Show cascading 'Recycle Bin' in Start menu")
  44.     Call ReadIt(3,sPath & sV3)
  45.  
  46.     Call SetUIElement(4,"Show cascading 'Scheduled Tasks' in Start menu")
  47.     Call ReadIt(4,sPath & sV4)
  48.  
  49. '    Call SetUIElement(5,"Show cascading 'History' in Start menu")
  50. '    Call ReadIt(5,sPath & sV5)
  51.  
  52.     Call SetUIElement(6,"Show cascading 'Subscriptions' in Start menu")
  53.     Call ReadIt(6,sPath & sV6)
  54.  else
  55.     Disable
  56.  end if
  57.  
  58. END SUB
  59.  
  60. 'Called when the Plugin should validate the Data the user has entered
  61. SUB Plugin_CheckData(ElementIndex)
  62. END SUB
  63.  
  64. 'Called when the Plugin should apply the changes
  65. SUB Plugin_Apply(ElementIndex,ElementSubIndex) 
  66.  Call WriteIt(1, sPath & sV1)
  67.  Call WriteIt(2, sPath & sV2)
  68.  Call WriteIt(3, sPath & sV3)
  69.  Call WriteIt(4, sPath & sV4)
  70.  
  71.  'IE6+ fix!
  72. ' If GetUIElementEx(5)=true then
  73. '    Call WriteIt(5, sPath & sV5)
  74. '    Call IniWriteValue(sPath & sV5file,".ShellClassInfo","UICLSID","{7BD29E00-76C1-11CF-9DD0-00A0C9034933}")
  75. '    Call FileSetAttribute(sPath & sV5file,"H+") 
  76. ' else
  77. '    If FileExists(sPath & sV5file) then
  78. '       Call FileSetAttribute(sPath & sV5file,"H-") 
  79. '       Call FileDelete(sPath & sV5file)
  80. '    end if
  81. '   Call WriteIt(5, sPath & sV5)
  82. 'end if
  83.  
  84.  Call WriteIt(6, sPath & sV6)
  85.  
  86.  
  87. END SUB
  88.  
  89.  
  90. 'Called when the Plugin is about to be removed from memory
  91. SUB Plugin_Terminate
  92. END SUB
  93.  
  94.  
  95. Sub ReadIt(ITEM,FILENAME)
  96.  if FolderExists(FILENAME) then 
  97.     Call SetUIElementEx(ITEM,true)
  98.  end if
  99. End Sub
  100.  
  101. Sub WriteIt(ITEM,FILENAME)
  102.  if GetUIElementEx(ITEM)=true then
  103.     if FolderExists(FILENAME)=false then
  104.        Call FolderCreate(FILENAME)
  105.     end if
  106.  else
  107.     if FolderExists(FILENAME)=true then       
  108.        Call FolderDelete(FILENAME)
  109.     end if
  110.  end if
  111. End Sub